home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Helm d4.adf / Convert (.txt) < prev    next >
Helm Multimedia Book  |  1993-08-23  |  51KB  |  1,008 lines
  1. Convert
  2. Scott Nickerson
  3. 06-18-93
  4. on BookClose begin
  5.   put 0 into textfield "Display"
  6. checkit begin
  7.   global operator
  8.   global doit
  9.   if (operator is not empty) and (doit is false) then begin
  10. put zero into textfield "Display"
  11. put true into doit
  12.   end
  13. resetcalculator begin
  14.   global operator, doit
  15.   put "=" into operator
  16.   put false into doit
  17. 'on PageOpen begin
  18.   'set floatformat to "%.8f"
  19. resetcalculator
  20. checkit
  21. Display
  22. /    operator
  23. Display
  24. /    operator
  25. New...
  26. Open...
  27. Make Copy...
  28. Streamline...
  29. Print...
  30.     Report...
  31. Preferences...
  32.     Workbench
  33. Help...
  34. About...
  35. Quit...
  36. Paste
  37. Clear
  38. Select All
  39. Cut Page
  40.     Copy Page
  41. Colors
  42. Load...
  43. Save...
  44. Restore Colors
  45. Default Colors
  46. Brush Colors
  47. Image Colors
  48. Cycle
  49. Grid...
  50. Stop Sound
  51. Show All
  52.     Edit Form
  53. Share
  54.     Next Page
  55. Previous Page
  56. First Page
  57.     Last Page
  58. Backward
  59. Forward
  60.     Last Book
  61.     Browse...
  62. Autobrowse...
  63.     Bookshelf
  64. New Page
  65. Delete Page
  66. New Form
  67. Load Form...
  68. Save Form...
  69. Image
  70. Load...
  71. Save...
  72. Capture...
  73.     Clipboard
  74. Paste
  75. Spare
  76. Swap Frames
  77. Copy to Spare
  78. Merge in Front
  79. Merge in Back
  80. Delete Spare
  81. Frame
  82. Previous
  83. Delete
  84. Copy to All
  85. Color
  86. Remap
  87. Transparency
  88. Paper <-> Pen
  89. Paper ->  Pen
  90. Count
  91. Vertical
  92. Horizontal
  93. Info...
  94. Brush
  95. Load...
  96. Save...
  97. Restore
  98.     Clipboard
  99. Paste
  100. Color
  101. Remap
  102. Transparency
  103. Paper <-> Pen
  104. Paper ->  Pen
  105. Center
  106. Corner
  107.     Any Point
  108. Any Size
  109. Halve
  110. Double
  111. Halve Width
  112. Halve Height
  113. Double Width
  114. Double Height
  115. To PAL
  116. To NTSC
  117. Vertical
  118. Horizontal
  119. Shear
  120. Vertical
  121. Horizontal
  122. Rotate
  123.     Any Angle
  124. Paint
  125. Matte
  126. Color
  127. Replace
  128. Smear
  129. Dissolve
  130. Spare
  131. Cycle
  132. Cycle 2
  133. Gradient
  134. Gradient 2
  135. Smudge
  136. Chaos
  137. Count
  138. Custom
  139. Dither
  140. Edges
  141. Object
  142. Load...
  143. Save...
  144. Bring to Front
  145. Send to Back
  146. Bring Closer
  147. Send Farther
  148. Group
  149. Ungroup
  150. Duplicate...
  151. Align...
  152. Info...
  153. Actions...
  154.     Script...
  155. Load...
  156. Save...
  157. Plain
  158.     Underline
  159. Italic
  160. Shadow
  161. Font...
  162. Spacing...
  163.     Hypertext
  164. Actions...
  165.     Script...
  166. Tools
  167. Coordinates
  168.     Title Bar
  169. Palette
  170. Colors
  171. Patterns
  172. Paint Tools
  173. Paint Types
  174.     Histogram
  175.     Magnifier
  176. Messages
  177. Draw Tools
  178. Layers
  179. Pages
  180. Author
  181. Book...
  182. Form...
  183. Page...
  184. Display...
  185. Menus...
  186. Narrator...
  187. Hypertext...
  188. Resources...
  189.     Effect...
  190. Effect Area
  191. Small8
  192. topaz.font
  193. PTopaz.fontGLOB
  194. Helm_6:Convert
  195. Helm_4:Atlas
  196. Helm_4:Notes
  197. Helm_4:Calendar
  198. Helm_4:PhoneBook
  199. Con SelectUp
  200. begin
  201.   answer "Convert V1.2\nEagle Tree Software"
  202. Convert V1.2
  203. Eagle Tree Software
  204. wwwwPAGE
  205. Display
  206. C -> 
  207. Yards -> Meters
  208. Meters -> Yards
  209. F -> 
  210. Inches -> Centimeters
  211. Centimeters -> Meters
  212. Miles -> Kilometers
  213. Pound -> Gram
  214. Gram -> Pound
  215. Kilometers -> Miles
  216. on SelectUp
  217. begin
  218.   checkit()
  219.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  220. put "7" into textfield "Display"
  221.   else put "7" after textfield "Display"
  222. checkit
  223. Display
  224. Display
  225. Display
  226. Display
  227. on SelectUp
  228. begin
  229.   checkit()
  230.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  231. put "8" into textfield "Display"
  232.   else put "8" after textfield "Display"
  233. checkit
  234. Display
  235. Display
  236. Display
  237. Display
  238. on SelectUp
  239. begin
  240.   checkit()
  241.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  242. put "9" into textfield "Display"
  243.   else put "9" after textfield "Display"
  244. checkit
  245. Display
  246. Display
  247. Display
  248. Display
  249. on SelectUp
  250. begin
  251.   global operator
  252.   global firstnumber
  253.   global doit
  254.   put false into doit
  255.   put "/" into operator
  256.   put textfield "Display" into firstnumber
  257. /    operator
  258. firstnumber
  259. Display
  260. on SelectUp
  261. begin
  262.   checkit()
  263.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  264. put "4" into textfield "Display"
  265.   else put "4" after textfield "Display"
  266. checkit
  267. Display
  268. Display
  269. Display
  270. Display
  271. on SelectUp
  272. begin
  273.   checkit()
  274.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  275. put "5" into textfield "Display"
  276.   else put "5" after textfield "Display"
  277. checkit
  278. Display
  279. Display
  280. Display
  281. Display
  282. on SelectUp
  283. begin
  284.   checkit()
  285.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  286. put "6" into textfield "Display"
  287.   else put "6" after textfield "Display"
  288. checkit
  289. Display
  290. Display
  291. Display
  292. Display
  293. on SelectUp
  294. begin
  295.   global operator
  296.   global firstnumber
  297.   global doit
  298.   put false into doit
  299.   put "x" into operator
  300.   put textfield "Display" into firstnumber
  301. /    operator
  302. firstnumber
  303. Display
  304. on SelectUp
  305. begin
  306.   checkit()
  307.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  308. put "1" into textfield "Display"
  309.   else put "1" after textfield "Display"
  310. checkit
  311. Display
  312. Display
  313. Display
  314. Display
  315. on SelectUp
  316. begin
  317.   checkit()
  318.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  319. put "2" into textfield "Display"
  320.   else put "2" after textfield "Display"
  321. checkit
  322. Display
  323. Display
  324. Display
  325. Display
  326. on SelectUp
  327. begin
  328.   checkit()
  329.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  330. put "3" into textfield "Display"
  331.   else put "3" after textfield "Display"
  332. checkit
  333. Display
  334. Display
  335. Display
  336. Display
  337. on SelectUp
  338. begin
  339.   global operator
  340.   global firstnumber
  341.   global doit
  342.   put false into doit
  343.   put "-" into operator
  344.   put textfield "Display" into firstnumber
  345. /    operator
  346. firstnumber
  347. Display
  348. on SelectUp
  349. begin
  350.   checkit()
  351.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  352. put "0" into textfield "Display"
  353.   'else put "0" after textfield "Display"
  354.   if textfield "Display" != 0 put "0" after textfield "Display"
  355. checkit
  356. Display
  357. Display
  358. Display
  359. Display
  360. Display
  361. bon SelectUp
  362. begin
  363.   put textfield "Display" * -1 into textfield "Display"
  364.   resetcalculator()
  365. Display
  366. Display
  367. resetcalculator
  368. 2on SelectUp
  369. begin
  370.   checkit()
  371.   get textfield "Display"
  372.   put the number of characters of it into n
  373.   put false into dot
  374.   for i = 1 to n begin
  375. if (char i of it) = "." begin
  376. put true into dot
  377. put n + 1 into i
  378.   end
  379.   if dot = false then
  380. put "." after textfield "Display"
  381. checkit
  382. Display
  383. Display
  384. on SelectUp
  385. begin
  386.   global operator
  387.   global firstnumber
  388.   global doit
  389.   put false into doit
  390.   put "+" into operator
  391.   put textfield "Display" into firstnumber
  392. /    operator
  393. firstnumber
  394. Display
  395. :on SelectUp
  396. begin
  397.   put zero into textfield "Display"
  398. Display
  399. Don SelectUp
  400. begin
  401.   global operator
  402.   global firstnumber
  403.   global doit
  404.   if operator = "/" begin
  405. if (textfield "Display" = 0) then
  406. put "DIVISION BY ZERO" into it
  407. else put (firstnumber / textfield "Display") into it
  408.   end
  409.   if operator = "x" then put firstnumber * textfield "Display" into it
  410.   if operator = "-" then put firstnumber - textfield "Display" into it
  411.   if operator = "+" then put firstnumber + textfield "Display" into it
  412.   if operator is empty then put zero into it
  413.   put it into textfield "Display"
  414.   put "=" into operator
  415.   put false into doit
  416. /    operator
  417. firstnumber
  418. Display
  419. DIVISION BY ZERO
  420. Display
  421. Display
  422. Display
  423. Display
  424. Display
  425. on SelectUp
  426. begin
  427.   get textfield "Display"
  428.   put (sin of (it * 3.14159265358979 / 180)) into textfield "Display"
  429.   resetcalculator()
  430. Display
  431. Display
  432. resetcalculator
  433. on SelectUp
  434. begin
  435.   get textfield "Display"
  436.   put (cos of (it * 3.14159265358979 / 180)) into textfield "Display"
  437.   resetcalculator()
  438. Display
  439. Display
  440. resetcalculator
  441. on SelectUp
  442. begin
  443.   get textfield "Display"
  444.   put (tan of (it * 3.14159265358979 / 180)) into textfield "Display"
  445.   resetcalculator()
  446. Display
  447. Display
  448. resetcalculator
  449. on SelectUp
  450. begin
  451.   get textfield "Display"
  452.   put (asin of it) * 180 / 3.14159265358979 into textfield "Display"
  453.   resetcalculator()
  454. Display
  455. Display
  456. resetcalculator
  457. on SelectUp
  458. begin
  459.   get textfield "Display"
  460.   put (acos of it) * 180 / 3.14159265358979 into textfield "Display"
  461.   resetcalculator()
  462. Display
  463. Display
  464. resetcalculator
  465. on SelectUp
  466. begin
  467.   get textfield "Display"
  468.   get textfield "Display"
  469.   put (atan of it) * 180 / 3.14159265358979 into textfield "Display"
  470.   resetcalculator()
  471. Display
  472. Display
  473. Display
  474. resetcalculator
  475. on SelectUp
  476. begin
  477.   get textfield "Display"
  478.   put (sinh of (it * 3.14159265358979 / 180)) into textfield "Display"
  479.   resetcalculator()
  480. Display
  481. Display
  482. resetcalculator
  483. on SelectUp
  484. begin
  485.   get textfield "Display"
  486.   put (cosh of (it * 3.14159265358979 / 180)) into textfield "Display"
  487.   resetcalculator()
  488. Display
  489. Display
  490. resetcalculator
  491. on SelectUp
  492. begin
  493.   get textfield "Display"
  494.   put (tanh of (it * 3.14159265358979 / 180)) into textfield "Display"
  495.   resetcalculator()
  496. Display
  497. Display
  498. resetcalculator
  499. jon SelectUp
  500. begin
  501.   put the log10 of textfield "Display" into textfield "Display"
  502.   resetcalculator()
  503. Display
  504. Display
  505. resetcalculator
  506. hon SelectUp
  507. begin
  508.   put the exp of textfield "Display" into textfield "Display"
  509.   resetcalculator()
  510. Display
  511. Display
  512. resetcalculator
  513. on SelectUp
  514. begin
  515.   get textfield "Display"
  516.   put (cot of (it * 3.14159265358979 / 180)) into textfield "Display"
  517.   resetcalculator()
  518. Display
  519. Display
  520. resetcalculator
  521. jon SelectUp
  522. begin
  523.   put (textfield "Display") * 1.8 + 32 into textfield "Display"
  524.   resetcalculator()
  525. Display
  526.  Display
  527. resetcalculator
  528. lon SelectUp
  529. begin
  530.   put (textfield "Display") * 1.09361398 into textfield "Display"
  531.   resetcalculator()
  532. Display
  533. =Display
  534. resetcalculator
  535. hon SelectUp
  536. begin
  537.   put (textfield "Display") * 0.9144 into textfield "Display"
  538.   resetcalculator()
  539. Display
  540. Display
  541. resetcalculator
  542. qon SelectUp
  543. begin
  544.   put ((textfield "Display") - 32) * 0.555555 into textfield "Display"
  545.   resetcalculator()
  546. Display
  547. Display
  548. resetcalculator
  549. jon SelectUp
  550. begin
  551.   put (textfield "Display") * 0.393701 into textfield "Display"
  552.   resetcalculator()
  553. Display
  554. Display
  555. resetcalculator
  556. fon SelectUp
  557. begin
  558.   put (textfield "Display") * 2.54 into textfield "Display"
  559.   resetcalculator()
  560. Display
  561. RDisplay
  562. resetcalculator
  563. ion SelectUp
  564. begin
  565.   put (textfield "Display") * 0.62137 into textfield "Display"
  566.   resetcalculator()
  567. Display
  568. Display
  569. resetcalculator
  570. kon SelectUp
  571. begin
  572.   put (textfield "Display") * 0.0026792 into textfield "Display"
  573.   resetcalculator()
  574. Display
  575. Display
  576. resetcalculator
  577. ion SelectUp
  578. begin
  579.   put (textfield "Display") * 373.242 into textfield "Display"
  580.   resetcalculator()
  581. Display
  582. Display
  583. resetcalculator
  584. ion SelectUp
  585. begin
  586.   put (textfield "Display") * 1.60934 into textfield "Display"
  587.   resetcalculator()
  588. Display
  589. PrDisplay
  590. resetcalculator
  591. ILBMBMHD
  592. .CAMG
  593. ppppCRNG
  594. *FORM
  595. ILBMBMHD
  596. 1CAMG
  597. ppppCRNG
  598. ILBMBMHD
  599. 1CAMG
  600. ppppCRNG
  601. ILBMBMHD
  602. 0CAMG
  603. ppppCRNG
  604. fFORM
  605. RILBMBMHD
  606. ,CAMG
  607. ppppCRNG
  608. ILBMBMHD
  609. 1CAMG
  610. ppppCRNG
  611. ,FORM
  612. ILBMBMHD
  613. &CAMG
  614. ppppCRNG
  615. FFORM
  616. 2ILBMBMHD
  617.  CAMG
  618. ppppCRNG
  619. 0pp0x
  620. ptopaz                          
  621. 3o3xg
  622. Display
  623. C -> 
  624. Yards -> Meters
  625. Meters -> Yards
  626. F -> 
  627. Inches -> Centimeters
  628. Centimeters -> Meters
  629. Miles -> Kilometers
  630. Pound -> Gram
  631. Gram -> Pound
  632. Kilometers -> Miles
  633. on SelectUp
  634. begin
  635.   checkit()
  636.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  637. put "7" into textfield "Display"
  638.   else put "7" after textfield "Display"
  639. checkit
  640. Display
  641. Display
  642. Display
  643. Display
  644. on SelectUp
  645. begin
  646.   checkit()
  647.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  648. put "8" into textfield "Display"
  649.   else put "8" after textfield "Display"
  650. checkit
  651. Display
  652. Display
  653. Display
  654. Display
  655. on SelectUp
  656. begin
  657.   checkit()
  658.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  659. put "9" into textfield "Display"
  660.   else put "9" after textfield "Display"
  661. checkit
  662. Display
  663. Display
  664. Display
  665. Display
  666. on SelectUp
  667. begin
  668.   global operator
  669.   global firstnumber
  670.   global doit
  671.   put false into doit
  672.   put "/" into operator
  673.   put textfield "Display" into firstnumber
  674. /    operator
  675. firstnumber
  676. Display
  677. on SelectUp
  678. begin
  679.   checkit()
  680.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  681. put "4" into textfield "Display"
  682.   else put "4" after textfield "Display"
  683. checkit
  684. Display
  685. Display
  686. Display
  687. Display
  688. on SelectUp
  689. begin
  690.   checkit()
  691.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  692. put "5" into textfield "Display"
  693.   else put "5" after textfield "Display"
  694. checkit
  695. Display
  696. Display
  697. Display
  698. Display
  699. on SelectUp
  700. begin
  701.   checkit()
  702.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  703. put "6" into textfield "Display"
  704.   else put "6" after textfield "Display"
  705. checkit
  706. Display
  707. Display
  708. Display
  709. Display
  710. on SelectUp
  711. begin
  712.   global operator
  713.   global firstnumber
  714.   global doit
  715.   put false into doit
  716.   put "x" into operator
  717.   put textfield "Display" into firstnumber
  718. /    operator
  719. firstnumber
  720. Display
  721. on SelectUp
  722. begin
  723.   checkit()
  724.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  725. put "1" into textfield "Display"
  726.   else put "1" after textfield "Display"
  727. checkit
  728. Display
  729. Display
  730. Display
  731. Display
  732. on SelectUp
  733. begin
  734.   checkit()
  735.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  736. put "2" into textfield "Display"
  737.   else put "2" after textfield "Display"
  738. checkit
  739. Display
  740. Display
  741. Display
  742. Display
  743. on SelectUp
  744. begin
  745.   checkit()
  746.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  747. put "3" into textfield "Display"
  748.   else put "3" after textfield "Display"
  749. checkit
  750. Display
  751. Display
  752. Display
  753. Display
  754. on SelectUp
  755. begin
  756.   global operator
  757.   global firstnumber
  758.   global doit
  759.   put false into doit
  760.   put "-" into operator
  761.   put textfield "Display" into firstnumber
  762. /    operator
  763. firstnumber
  764. Display
  765. on SelectUp
  766. begin
  767.   checkit()
  768.   if textfield "Display" = 0 and (char 2 of textfield "Display") != "."
  769. put "0" into textfield "Display"
  770.   'else put "0" after textfield "Display"
  771.   if textfield "Display" != 0 put "0" after textfield "Display"
  772. checkit
  773. Display
  774. Display
  775. Display
  776. Display
  777. Display
  778. bon SelectUp
  779. begin
  780.   put textfield "Display" * -1 into textfield "Display"
  781.   resetcalculator()
  782. Display
  783. Display
  784. resetcalculator
  785. 2on SelectUp
  786. begin
  787.   checkit()
  788.   get textfield "Display"
  789.   put the number of characters of it into n
  790.   put false into dot
  791.   for i = 1 to n begin
  792. if (char i of it) = "." begin
  793. put true into dot
  794. put n + 1 into i
  795.   end
  796.   if dot = false then
  797. put "." after textfield "Display"
  798. checkit
  799. Display
  800. Display
  801. on SelectUp
  802. begin
  803.   global operator
  804.   global firstnumber
  805.   global doit
  806.   put false into doit
  807.   put "+" into operator
  808.   put textfield "Display" into firstnumber
  809. /    operator
  810. firstnumber
  811. Display
  812. :on SelectUp
  813. begin
  814.   put zero into textfield "Display"
  815. Display
  816. Don SelectUp
  817. begin
  818.   global operator
  819.   global firstnumber
  820.   global doit
  821.   if operator = "/" begin
  822. if (textfield "Display" = 0) then
  823. put "DIVISION BY ZERO" into it
  824. else put (firstnumber / textfield "Display") into it
  825.   end
  826.   if operator = "x" then put firstnumber * textfield "Display" into it
  827.   if operator = "-" then put firstnumber - textfield "Display" into it
  828.   if operator = "+" then put firstnumber + textfield "Display" into it
  829.   if operator is empty then put zero into it
  830.   put it into textfield "Display"
  831.   put "=" into operator
  832.   put false into doit
  833. /    operator
  834. firstnumber
  835. Display
  836. DIVISION BY ZERO
  837. Display
  838. Display
  839. Display
  840. Display
  841. Display
  842. on SelectUp
  843. begin
  844.   get textfield "Display"
  845.   put (sin of (it * 3.14159265358979 / 180)) into textfield "Display"
  846.   resetcalculator()
  847. Display
  848. Display
  849. resetcalculator
  850. on SelectUp
  851. begin
  852.   get textfield "Display"
  853.   put (cos of (it * 3.14159265358979 / 180)) into textfield "Display"
  854.   resetcalculator()
  855. Display
  856. Display
  857. resetcalculator
  858. on SelectUp
  859. begin
  860.   get textfield "Display"
  861.   put (tan of (it * 3.14159265358979 / 180)) into textfield "Display"
  862.   resetcalculator()
  863. Display
  864. Display
  865. resetcalculator
  866. on SelectUp
  867. begin
  868.   get textfield "Display"
  869.   put (asin of it) * 180 / 3.14159265358979 into textfield "Display"
  870.   resetcalculator()
  871. Display
  872. Display
  873. resetcalculator
  874. on SelectUp
  875. begin
  876.   get textfield "Display"
  877.   put (acos of it) * 180 / 3.14159265358979 into textfield "Display"
  878.   resetcalculator()
  879. Display
  880. Display
  881. resetcalculator
  882. on SelectUp
  883. begin
  884.   get textfield "Display"
  885.   get textfield "Display"
  886.   put (atan of it) * 180 / 3.14159265358979 into textfield "Display"
  887.   resetcalculator()
  888. Display
  889. Display
  890. Display
  891. resetcalculator
  892. on SelectUp
  893. begin
  894.   get textfield "Display"
  895.   put (sinh of (it * 3.14159265358979 / 180)) into textfield "Display"
  896.   resetcalculator()
  897. Display
  898. Display
  899. resetcalculator
  900. on SelectUp
  901. begin
  902.   get textfield "Display"
  903.   put (cosh of (it * 3.14159265358979 / 180)) into textfield "Display"
  904.   resetcalculator()
  905. Display
  906. Display
  907. resetcalculator
  908. on SelectUp
  909. begin
  910.   get textfield "Display"
  911.   put (tanh of (it * 3.14159265358979 / 180)) into textfield "Display"
  912.   resetcalculator()
  913. Display
  914. Display
  915. resetcalculator
  916. jon SelectUp
  917. begin
  918.   put the log10 of textfield "Display" into textfield "Display"
  919.   resetcalculator()
  920. Display
  921. Display
  922. resetcalculator
  923. hon SelectUp
  924. begin
  925.   put the exp of textfield "Display" into textfield "Display"
  926.   resetcalculator()
  927. Display
  928. Display
  929. resetcalculator
  930. on SelectUp
  931. begin
  932.   get textfield "Display"
  933.   put (cot of (it * 3.14159265358979 / 180)) into textfield "Display"
  934.   resetcalculator()
  935. Display
  936. Display
  937. resetcalculator
  938. jon SelectUp
  939. begin
  940.   put (textfield "Display") * 1.8 + 32 into textfield "Display"
  941.   resetcalculator()
  942. Display
  943.  Display
  944. resetcalculator
  945. lon SelectUp
  946. begin
  947.   put (textfield "Display") * 1.09361398 into textfield "Display"
  948.   resetcalculator()
  949. Display
  950. =Display
  951. resetcalculator
  952. hon SelectUp
  953. begin
  954.   put (textfield "Display") * 0.9144 into textfield "Display"
  955.   resetcalculator()
  956. Display
  957. Display
  958. resetcalculator
  959. qon SelectUp
  960. begin
  961.   put ((textfield "Display") - 32) * 0.555555 into textfield "Display"
  962.   resetcalculator()
  963. Display
  964. Display
  965. resetcalculator
  966. jon SelectUp
  967. begin
  968.   put (textfield "Display") * 0.393701 into textfield "Display"
  969.   resetcalculator()
  970. Display
  971. Display
  972. resetcalculator
  973. fon SelectUp
  974. begin
  975.   put (textfield "Display") * 2.54 into textfield "Display"
  976.   resetcalculator()
  977. Display
  978. RDisplay
  979. resetcalculator
  980. ion SelectUp
  981. begin
  982.   put (textfield "Display") * 0.62137 into textfield "Display"
  983.   resetcalculator()
  984. Display
  985. Display
  986. resetcalculator
  987. kon SelectUp
  988. begin
  989.   put (textfield "Display") * 0.0026792 into textfield "Display"
  990.   resetcalculator()
  991. Display
  992. Display
  993. resetcalculator
  994. ion SelectUp
  995. begin
  996.   put (textfield "Display") * 373.242 into textfield "Display"
  997.   resetcalculator()
  998. Display
  999. Display
  1000. resetcalculator
  1001. ion SelectUp
  1002. begin
  1003.   put (textfield "Display") * 1.60934 into textfield "Display"
  1004.   resetcalculator()
  1005. Display
  1006. PrDisplay
  1007. resetcalculator
  1008.